home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 1
/
001.d81
/
cover page
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
26 lines
5 v=53248:s=v+1024:ifa>.then60
10 pokev+32,.:pokev+33,.:print"[147][204][207][193][196][211][212][193][210] [206]umber 1"
15 print"[129]lodestar[146] n. [see [204][207][196][197]], 1. a star by"
20 print"which one directs his course; esp., the"
25 print"[206]orth [211]tar. 2. a guiding ideal; model"
30 print"for imitation. [193]lso sp. loadstar[146]"
35 print"([215]ebster's [206]ew [215]orld [196]ictionary of the"
40 print"[193]merican [204]anguage (c) 1964, p.441)"
45 print"[154] [204][207][193][196]"chr$(34)"*"chr$(34)",8"
50 print" ^":print" star"
55 print"[158][204]oading [208]icture":a=1:load"cover.pic",8,1
60 s=54272:fori=.to23:pokes+i,.:next:pokes+24,15:pokes+5,255:pokes+6,255
65 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
70 pokes+15,3:pokes+7,7:pokes+14,18
100 poke55,.:poke56,92:clr:s=54272:print"[145][156][208]ress space bar to view cover."
110 print"[208]ress it again to return to menu."
115 poke198,.:wait198,1:poke53265,59:poke53272,120
120 poke56576,peek(56576)and254
125 pokes+4,17:pokes+11,17:pokes+18,17:fori=1to1000:next
130 poke198,.:wait197,64,64:poke53265,27:poke53272,23
135 pokes+4,16:pokes+11,16:pokes+18,16
140 poke56576,peek(56576)or1:poke198,.
145 print"[147][196]ocking with [212]able of [195]ontents";
150 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run":poke631,13:poke632,13
155 poke198,2:end